home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 103 / 103.d81 / yule jukebox (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  6KB  |  192 lines
  1. 0 poke53274,.
  2. 1 poke55,0:poke56,62:clr
  3. 2 dv=peek(186):ifdv<8thendv=8
  4. 3 dv$=str$(dv)
  5. 5 sys57812"ml c600-cfff",dv,0:poke780,0:poke781,0:poke782,198:sys65493
  6. 7 sys57812"raster stuff.o",dv,0:poke780,0:poke781,02:poke782,63:sys65493
  7. 8 sys57812"yule.spr",dv,0:poke780,0:poke781,0:poke782,62:sys65493
  8. 9 fr$="":la$="":ov$=""
  9. 10 ns=8:dim na$(ns),fi$(ns),w$(5):rem change ns to reflect number of songs
  10. 12 sa=780:sx=781:sy=782
  11. 13 fori=0to24:poke54272+i,0:next
  12. 14 su=51206:sd=51209
  13. 15 poke1020,10:poke1021,16:poke1022,7:poke1023,32
  14. 16 fori=0to4:poke2040+i,i+248:next
  15. 17 v=53248:fori=0to6step2:readb:pokev+i,b:readb:pokev+i+1,b:next:pokev+16,12
  16. 18 data42,65,62,80,45,65,25,80
  17. 19 fori=0to3:pokev+39+i,2+i:next:print"[147]":pokev+28,15:pokev+37,7:pokev+38,6
  18. 20 gosub1000
  19. 30 gosub1500
  20. 40 gosub2000
  21. 50 gosub3000
  22. 60 gosub100
  23. 64 print"[193]re you sure you want to quit? ([217]/[206])":poke198,.
  24. 66 a=peek(203):ifa<>25anda<>39then66
  25. 68 ifa=39thengosub2020:goto50
  26. 69 poke53281,.:poke53280,.:poke646,.
  27. 70 pokev+21,0:goto40000
  28. 100 printla$""
  29. 110 fora=1to5:print"                                    "
  30. 120 next:print"[145][145][145][145][145][145]"
  31. 130 return
  32. 1000 poke53280,13:poke53281,1
  33. 1010 print"[147]";
  34. 1012 fora=1to5:
  35. 1013 print"[153]                                        ";
  36. 1014 next
  37. 1015 print"[153]   [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]   ";
  38. 1016 print"[153] [176][192][219][174]                              [176][219][192][174] ";
  39. 1017 print"[153] [221] [173][189]                              [173][189] [221] ";
  40. 1018 print"[153][176][219][174]                                  [176][219][174]";
  41. 1019 print"[153][221][173][189]                                  [173][189][221]";
  42. 1020 fora=.to10:print"[153][221]                                      [221]";:next
  43. 1030 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157][148][192]"
  44. 1032 fora=1to2:
  45. 1033 print"[153]                                        ";
  46. 1034 next
  47. 1035 print"                                       [157][148] "
  48. 1040 fora=217to242:pokea,peek(a)or128:next
  49. 1050 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  50. 1060 print"[221][204][207][193][196][211][212][193][210] [208]resents[221] "
  51. 1070 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] "
  52. 1080 print"                   "
  53. 1090 print"[144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][153] "
  54. 1100 print"[144][176][219][174]                    [176][219][174]"
  55. 1110 print"[144][221][173][189]                    [173][189][221] "
  56. 1111 for a=1to3
  57. 1112 print"[144][221]                        [221] "
  58. 1120 next
  59. 1130 print"[144][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] "
  60. 1135 print"                          "
  61. 1140 print"[145][145][145][145][145][145][144]    [193] [214][197][210][217] [205][197][210][210][217]"
  62. 1150 print"[144]     [195][200][210][201][211][212][205][193][211]!    "
  63. 1170 print"[144]  [194]y [196]ave [205]arquis
  64. 1180 [153]"ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^"
  65. 1190 [153]"(NULL)        lenopyright 1992        (NULL) "
  66. 1191 [153]"(NULL)                              (NULL) "
  67. 1192 [153]"(NULL)        (NULL)oftdisk, right$nc.        (NULL) "
  68. 1200 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp "
  69. 1210 [153]"                                "
  70. 1220 [129]a[178]1[164]ns:[135] na$(a),fi$(a):[130]
  71. 1230 [129]a[178]1[164]2000:[130]
  72. 1250 [142]
  73. 1500 [153]"(NULL)                 (NULL)"
  74. 1510 [153]"(NULL)   atnclose(NULL)val(NULL)(NULL)close(NULL)val(NULL)(NULL)(NULL)  (NULL) "
  75. 1520 [153]"(NULL)    lenleft$(NULL)right$(NULL)(NULL)(NULL)atn(NULL)!   (NULL) "
  76. 1530 [153]"print          (NULL) peeky str$ave (NULL)arquis (NULL) print         "
  77. 1535 mm[178]1263:[151]mm,160:[151]54272[170]mm,13
  78. 1540 [153]"print          /tantantantantantantantantantantantantantantantantanexp print         "
  79. 1545 mm[178]mm[170]40:[151]mm,160:[151]54272[170]mm,13
  80. 1550 [153]"print                              print         "
  81. 1555 mm[178]mm[170]40:[151]mm,160:[151]54272[170]mm,13
  82. 1560 [153]"print                                       "
  83. 1565 mm[178]mm[170]40:[151]mm,160:[151]54272[170]mm,13
  84. 1570 [153]"print waitverifyortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^"
  85. 1575 mm[178]mm[170]40:[151]mm,160:[151] 54272[170]mm,13
  86. 1580 [129]a[178]1[164]7
  87. 1590 [153]"print verifywait(NULL)                                    (NULL)"
  88. 1595 mm[178]mm[170]40:[151]mm,160:[151]54272[170]mm,5
  89. 1597 [139]a[178]4[167][153]"onstop--->"[163]34)"<---"
  90. 1600 [130]
  91. 1610 [153]"print verifywait-tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan<"
  92. 1615 mm[178]mm[170]40:[151]mm,160:[151]54272[170]mm,5
  93. 1620 [129]a[178]1[164]5
  94. 1630 [153]"print verifywait(NULL)                                    (NULL)"
  95. 1635 mm[178]mm[170]40:[151]mm,160:[151]54272[170]mm,5
  96. 1640 [130]
  97. 1650 [153]"print waitverify/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  98. 1655 mm[178]mm[170]40:[151]mm,160:[151]54272[170]mm,5
  99. 1660 [153]"print                                       "
  100. 1665 mm[178]mm[170]40:[151]mm,160:[151]54272[170]mm,5
  101. 1670 [129]a[178]217[164]242:[151]a,[194](a)[176]128:[130]
  102. 1680 [142]
  103. 2000 [153]fr$;
  104. 2010 [129]a[178]1[164]7:[153]ov$"clr"na$(a):[130]
  105. 2015 se[178]4
  106. 2016 ls$[178]""
  107. 2020 [141]100:[153]la$"(NULL)se the len(NULL)(NULL)(NULL) keys to scroll the"
  108. 2025 [153]"music up and down."
  109. 2030 [153]"(NULL)ress [(NULL)val(NULL)(NULL)(NULL)(NULL)] to hear the"
  110. 2040 [153]"selected music."
  111. 2050 [153]"asc1 - (NULL)lay all        asc7 - (NULL)uit"
  112. 2060 [142]
  113. 3000 [151]198,.:ab[178].:pa[178].:[151]v[170]21,15:[151]v[170]37,[187](0)[172]12:[151]v[170]38,[187](0)[172]12
  114. 3005 b[178][194](653):a[178][194](203):[139]a[179][177]7[175]a[179][177]2[175]a[179][177]4[175]a[179][177]3[175]a[179][177]1[167]3000
  115. 3010 [139]((b[178].)[175](a[178]2))[176]((b)[175](a[178]7))[167] [141]3100:[137]3000
  116. 3020 [139]((b[178].)[175](a[178]7))[176]((b)[175](a[178]2))[167] [141]3200:[137]3000
  117. 3030 [139](a[178]1)[167]4000
  118. 3040 [139](a[178]4)[167]4100
  119. 3050 [139](a[178]3)[167] [142]
  120. 3060 [137]3000
  121. 3100 se[178]se[171]1:[139]se[178].[167]se[178]ns
  122. 3110 tp[178]se[171]3:[139]tp[179]1[167]tp[178]ns[170]tp
  123. 3120 [158]sd:[151]648,216:[158]sd:[151]648,4:[153]fr$ov$"clr"na$(tp)
  124. 3130 [142]
  125. 3200 se[178]se[170]1:[139]se[178]ns[170]1[167]se[178]1
  126. 3210 bo[178]se[170]3:[139]bo[177]ns[167]bo[178]bo[171]ns
  127. 3220 [158]su:[151]648,216:[158]su:[151]648,4:[153]la$ov$"clr"na$(bo)
  128. 3230 [142]
  129. 4000 pl[178]se
  130. 4010 [141]6000
  131. 4040 [137]3000
  132. 4097 :
  133. 4098 :
  134. 4100 mm[178]se:pa[178][171]1:[129]zz[178]se[164]ns
  135. 4110 pl[178]zz
  136. 4120 [141]6000
  137. 4150 [141]3200
  138. 4155 [139](ab)[167][141]2020:[137]3000
  139. 4160 [130]:[139](mm[178]1)[176](ab)[167][141]2020:[137]3000
  140. 4170 [129]zz[178]1[164]mm[171]1
  141. 4180 pl[178]zz
  142. 4190 [141]6000
  143. 4210 [141]6500
  144. 4220 [141]3200
  145. 4225 [139](ab)[167][141]2020:[137]3000
  146. 4230 [130]:[141]2020:[137]3000
  147. 6000 ok[178]1:he[178].:[139]ls$[178]fi$(pl)[167]6540
  148. 6001 ls$[178]fi$(pl)
  149. 6003 [141]100:li$[178]"(NULL)oading "[170]na$(pl):li[178][195](li$):ta[178]20[171]li[173]2
  150. 6005 [153]""[163]ta)li$
  151. 6010 [151]v[170]21,0:[158]57812"m."[170]fi$(pl),dv,0:[151]780,0:[151]781,0:[151]782,160:[158]65493
  152. 6020 [151]v[170]21,0:[158]57812"w."[170]fi$(pl),dv,0
  153. 6030 [